
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tBienes_x_Microemprendimiento



# Region "tMicroemprendimientos"

		private mtMicroemprendimientos As New tMicroemprendimientos

		Public Property tMicroemprendimientos As tMicroemprendimientos
        Get
                mtMicroemprendimientos = mtMicroemprendimientos.TraerFiltradoListOf("IdMicroemprendimiento", Me.IdMicroemprendimiento).Item(0)
        Return mtMicroemprendimientos
        End Get
        Set
             If ((mtMicroemprendimientos Is Nothing) Or (Me.tMicroemprendimientos.Equals(value) = False)) Then
                If Not (Me.tMicroemprendimientos Is Nothing)
	               Dim oldtMicroemprendimientos As tMicroemprendimientos = Me.tMicroemprendimientos
                   Me.mtMicroemprendimientos = Nothing
                   oldtMicroemprendimientos.RemoveListatBienes_x_Microemprendimiento(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtMicroemprendimientos = value
                   Me.tMicroemprendimientos.AddListatBienes_x_Microemprendimiento(Me)
            	End If
             End If
        End Set
       End Property

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tBienes_x_Microemprendimiento)
            Dim dtDatos As DataTable
            Dim listatBienes_x_Microemprendimiento As New List(Of tBienes_x_Microemprendimiento)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtBienes_x_Microemprendimiento As New tBienes_x_Microemprendimiento
				mtBienes_x_Microemprendimiento.IdBienes = CType(dr.Item("IdBienes"),Integer)
				mtBienes_x_Microemprendimiento.Traer_objeto()
            	listatBienes_x_Microemprendimiento.Add( mtBienes_x_Microemprendimiento)
    		Next dr
Return listatBienes_x_Microemprendimiento
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tBienes_x_Microemprendimiento)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatBienes_x_Microemprendimiento As New List(Of tBienes_x_Microemprendimiento)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtBienes_x_Microemprendimiento As New tBienes_x_Microemprendimiento
				mtBienes_x_Microemprendimiento.IdBienes = CType(dr.Item("IdBienes"),Integer)
				mtBienes_x_Microemprendimiento.Traer_objeto()
            	listatBienes_x_Microemprendimiento.Add( mtBienes_x_Microemprendimiento)
    		Next dr
Return listatBienes_x_Microemprendimiento
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tBienes_x_Microemprendimiento)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatBienes_x_Microemprendimiento As New List(Of tBienes_x_Microemprendimiento)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtBienes_x_Microemprendimiento As New tBienes_x_Microemprendimiento
				mtBienes_x_Microemprendimiento.IdBienes = CType(dr.Item("IdBienes"),Integer)
				mtBienes_x_Microemprendimiento.Traer_objeto()
            	listatBienes_x_Microemprendimiento.Add( mtBienes_x_Microemprendimiento)
    		Next dr
Return listatBienes_x_Microemprendimiento
End Function
# End Region

End Class
End Namespace
